home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 March / EnigmA AMIGA RUN 05 (1996)(G.R. Edizioni)(IT)[!][issue 1996-03][Skylink CD IV].iso / earcd / util2 / fiflb381.lha / tag.s < prev    next >
Text File  |  1995-12-19  |  1KB  |  104 lines
  1. |    TAG.S for GNU-AS
  2. |    For comments, see TAG.A
  3.  
  4. .text
  5.     moveq #-1,d0
  6.     rts
  7.  
  8. .globl _LibName
  9. .globl _LibId
  10. .globl _Vectors
  11.  
  12. InitDesc:
  13.     .short 0x4afc
  14.     .long InitDesc
  15.     .long EndCode    | __end might also be used (provided by linker)
  16.     .byte 0
  17.     .byte 38
  18.     .byte 9
  19.     .byte 0
  20.     .long _LibName
  21.     .long _LibId
  22.     .long Init
  23.  
  24. _LibName:
  25.     .ascii "fifo.library\0"
  26. _LibId:
  27.     .ascii "fifo.library 38.1 (20.12.95)\15\12\0"
  28.  
  29. _Vectors:
  30.     .long ALibOpen,     ALibClose, ALibExpunge, 0
  31.     .long AOpenFifo, ACloseFifo
  32.     .long AReadFifo, AWriteFifo
  33.     .long ARequestFifo, ABufSizeFifo
  34.     .long -1
  35.  
  36.     .even
  37. Init:
  38.     movel a0,sp@-
  39.     jbsr pc@(_LibInit)
  40.     addqw #4,sp
  41.     rts
  42.  
  43. ALibOpen:
  44.     movel a6,sp@-
  45.     movel d0,sp@-
  46.     jbsr pc@(_LibOpen)
  47.     addqw #8,sp
  48.     rts
  49.  
  50. ALibClose:
  51.     movel a6,sp@-
  52.     movel d0,sp@-
  53.     jbsr pc@(_LibClose)
  54.     addqw #8,sp
  55.     rts
  56.  
  57. ALibExpunge:
  58.     movel a6,sp@-
  59.     movel d0,sp@-
  60.     jbsr pc@(_LibExpunge)
  61.     addqw #8,sp
  62.     rts
  63.  
  64. AOpenFifo:
  65.     moveml d0/d1/a0,sp@-
  66.     jbsr pc@(_OpenFifo)
  67.     addw #12,sp
  68.     rts
  69.  
  70. ACloseFifo:
  71.     movel d1,sp@-
  72.     movel d0,sp@-
  73.     jbsr pc@(_CloseFifo)
  74.     addqw #8,sp
  75.     rts
  76.  
  77. AReadFifo:
  78.     moveml d0/d1/a0,sp@-
  79.     jbsr pc@(_ReadFifo)
  80.     addw #12,sp
  81.     rts
  82.  
  83. AWriteFifo:
  84.     moveml d0/d1/a0,sp@-
  85.     jbsr pc@(_WriteFifo)
  86.     addw #12,sp
  87.     rts
  88.  
  89. ARequestFifo:
  90.     moveml d0/d1/a0,sp@-
  91.     jbsr pc@(_RequestFifo)
  92.     addw #12,sp
  93.     rts
  94.  
  95. ABufSizeFifo:
  96.     movel d0,sp@-
  97.     jbsr pc@(_BufSizeFifo)
  98.     addw #4,sp
  99.     rts
  100.  
  101. | _BitTestSet is inlined with GCC
  102.  
  103. EndCode:
  104.